home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Science
/
RLaB
/
examples
/
fac.r
< prev
next >
Wrap
Text File
|
1994-04-25
|
112b
|
14 lines
//
// Fac.r
//
fac = function(a)
{
if(a <= 1)
{
return 1;
else
return a*$self(a-1);
}
};